home *** CD-ROM | disk | FTP | other *** search
/ MacFormat España 4 / MacFormat n. 4 (Spain) / MacFormat 4.bin / Demos / Dazzleoids / SHARED.DIR / 00826_BookMark Dialog.ls < prev    next >
Encoding:
Text File  |  1994-10-13  |  2.0 KB  |  74 lines
  1. on mouseDown
  2.   shutUp()
  3.   set itsName to the movieName
  4.   set relativeX to the left of sprite the clickOn
  5.   set relativeY to the top of sprite the clickOn
  6.   if ((the mouseH - relativeX) >= 0) and ((the mouseH - relativeX) <= 82) then
  7.     if itsName = "DazCentr" then
  8.       puppetSound("Click!2")
  9.       repeat while the stillDown
  10.         set the castNum of sprite 23 to 827
  11.         set the locH of sprite 23 to 179
  12.         set the locV of sprite 23 to 137
  13.         updateStage()
  14.       end repeat
  15.       puppetSprite(23, 0)
  16.       updateStage()
  17.       go(the frame + 1)
  18.       updateStage()
  19.       exit
  20.     end if
  21.     puppetSound("Click!2")
  22.     repeat while the stillDown
  23.       set the castNum of sprite 23 to 827
  24.       set the locH of sprite 23 to 179
  25.       set the locV of sprite 23 to 137
  26.       updateStage()
  27.     end repeat
  28.     puppetSprite(23, 0)
  29.     updateStage()
  30.     puppetSound("loopDazVibe")
  31.     play frame "ender"
  32.     thislocation()
  33.     go(1, "DazCentr")
  34.     exit
  35.   else
  36.     if ((the mouseH - relativeX) >= 75) and ((the mouseH - relativeX) <= 164) then
  37.       puppetSound("Click!2")
  38.       repeat while the stillDown
  39.         set the castNum of sprite 23 to 828
  40.         set the locH of sprite 23 to 262
  41.         set the locV of sprite 23 to 41
  42.         updateStage()
  43.       end repeat
  44.       puppetSprite(23, 0)
  45.       updateStage()
  46.       go(the frame + 1)
  47.       updateStage()
  48.       exit
  49.     else
  50.       if ((the mouseH - relativeX) >= 151) and ((the mouseH - relativeX) <= 246) then
  51.         puppetSound("Click!2")
  52.         repeat while the stillDown
  53.           set the castNum of sprite 23 to 829
  54.           set the locH of sprite 23 to 343
  55.           set the locV of sprite 23 to 137
  56.           updateStage()
  57.         end repeat
  58.         puppetSprite(23, 0)
  59.         updateStage()
  60.         puppetSound("loopDazVibe")
  61.         play frame "ender"
  62.         thislocation()
  63.         bookmark()
  64.         go(1, "DazEnd")
  65.         exit
  66.       else
  67.         nothing()
  68.         exit
  69.       end if
  70.     end if
  71.   end if
  72.   dontPassEvent()
  73. end
  74.